unit mibge;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils;

type

  { TmIBGE }

  TmIBGE = class
    private
      fCodigo: smallint;
      fNumero: integer;
      fMunicipio: string;
      fCodUF: shortint;
      fUF: string;
      function GetCodigo: smallint;
      function GetCodUF: shortint;
      function GetMunicipio: string;
      function GetNumero: integer;
      function GetUF: string;
      procedure SetCodigo(AValue: smallint);
      procedure SetCodUF(AValue: shortint);
      procedure SetMunicipio(AValue: string);
      procedure SetNumero(AValue: integer);
      procedure SetUF(AValue: string);
    public
      property Codigo: smallint read GetCodigo write SetCodigo;
      property Numero: integer read GetNumero write SetNumero;
      property Municipio: string read GetMunicipio write SetMunicipio;
      property CodUF: shortint read GetCodUF write SetCodUF;
      property UF: string read GetUF write SetUF;
  end;

implementation

{ TmIBGE }

function TmIBGE.GetCodigo: smallint;
begin
  Result := fCodigo;
end;

function TmIBGE.GetCodUF: shortint;
begin
  Result := fCodUF;
end;

function TmIBGE.GetMunicipio: string;
begin
  Result := fMunicipio;
end;

function TmIBGE.GetNumero: integer;
begin
  Result := fNumero;
end;

function TmIBGE.GetUF: string;
begin
 Result := fUF;
end;

procedure TmIBGE.SetCodigo(AValue: smallint);
begin
 if AValue <> fCodigo then
    fCodigo := AValue
end;

procedure TmIBGE.SetCodUF(AValue: shortint);
begin
  if AValue <> fCodUF then
    fCodUF := AValue
end;

procedure TmIBGE.SetMunicipio(AValue: string);
begin
  if AValue <> fMunicipio then
    fMunicipio := AValue
end;

procedure TmIBGE.SetNumero(AValue: integer);
begin
  if AValue <> fNumero then
    fNumero := AValue
end;

procedure TmIBGE.SetUF(AValue: string);
begin
  if AValue <> fUF then
    fUF := AValue
end;

end.

